home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 March / EnigmA AMIGA RUN 25 (1997)(G.R. Edizioni)(IT)[!][issue 1998-03].iso / shape-files / shapedisk01.ssf / Games / Duke3D 68k / Duke / Duke.rsrc / scrp_1002_EggObject < prev    next >
Text File  |  1997-05-14  |  2KB  |  134 lines
  1.  TOUGH
  2.   fall
  3.   ifaction 0
  4.   {
  5.     ifcount 64
  6.     {
  7.       ifrnd 128
  8.       {
  9.         action EGGWAIT
  10.         move 0
  11.       }
  12.       else
  13.       {
  14.         sound SLIM_HATCH
  15.         action EGGOPEN1
  16.       }
  17.     }
  18.   }
  19.   else
  20.     ifaction EGGOPEN1
  21.       ifactioncount 4
  22.         action EGGOPEN2
  23.   else
  24.     ifaction EGGOPEN2
  25.       ifactioncount 4
  26.     {
  27.       spawn GREENSLIME
  28.       action EGGOPEN3
  29.     }
  30.   else
  31.     ifaction EGGGROW
  32.       state genericgrowcode
  33.   else
  34.     ifaction EGGSHRUNK
  35.       state genericshrunkcode
  36.   else
  37.     ifaction EGGFROZEN
  38.   {
  39.     ifcount THAWTIME
  40.     {
  41.       action 0
  42.       getlastpal
  43.     }
  44.     else
  45.       ifcount FROZENDRIPTIME
  46.     {
  47.       ifactioncount 26
  48.       {
  49.         spawn WATERDRIP
  50.         resetactioncount
  51.       }
  52.     }
  53.  
  54.     ifhitweapon
  55.     {
  56.       ifwasweapon FREEZEBLAST
  57.       {
  58.         strength 0
  59.         break
  60.       }
  61.       lotsofglass 30
  62.  
  63.       sound GLASS_BREAKING
  64.       ifrnd 84
  65.         spawn BLOODPOOL
  66.  
  67.       addkills 1
  68.       killit
  69.     }
  70.  
  71.     // ifp pducking
  72.     ifp pfacing
  73.       ifpdistl FROZENQUICKKICKDIST
  74.         pkick
  75.  
  76.     break
  77.   }
  78.  
  79.   ifhitweapon
  80.   {
  81.     ifdead
  82.     {
  83.       ifwasweapon FREEZEBLAST
  84.       {
  85.         sound SOMETHINGFROZE
  86.         spritepal 1
  87.         move 0
  88.         action EGGFROZEN
  89.         strength 0
  90.         break
  91.       }
  92.       else
  93.         ifwasweapon GROWSPARK
  94.       {
  95.         cstat 0
  96.         move 0
  97.         sound ACTOR_GROWING
  98.         action EGGGROW
  99.         break
  100.       }
  101.  
  102.       addkills 1
  103.  
  104.       sound SQUISHED
  105.  
  106.       state standard_jibs
  107.       killit
  108.     }
  109.     else
  110.       ifwasweapon SHRINKSPARK
  111.       {
  112.         move 0
  113.         sound ACTOR_SHRINKING
  114.         action EGGSHRUNK
  115.         break
  116.       }
  117.  
  118.       ifwasweapon GROWSPARK
  119.         sound EXPANDERHIT
  120.   }
  121.   else
  122.     ifaction EGGWAIT
  123.   {
  124.     ifcount 512
  125.       ifrnd 2
  126.     {
  127.       ifaction EGGSHRUNK
  128.         break
  129.       sound SLIM_HATCH
  130.       action EGGOPEN1
  131.     }
  132.   }
  133.  
  134. enda